﻿Imports System
Imports System.CodeDom
Imports System.CodeDom.Compiler

Namespace System.Workflow.ComponentModel.Compiler
    <Serializable> _
    Public NotInheritable Class WorkflowCompilerResults
        Inherits CompilerResults
        ' Methods
        Friend Sub New(ByVal tempFiles As TempFileCollection)
            MyBase.New(tempFiles)
        End Sub

        Friend Sub AddCompilerErrorsFromCompilerResults(ByVal results As CompilerResults)
            Dim error As CompilerError
            For Each error In results.Errors
                MyBase.Errors.Add(New WorkflowCompilerError([error]))
            Next
            Dim str As String
            For Each str In results.Output
                MyBase.Output.Add(str)
            Next
        End Sub


        ' Properties
        Property CompiledUnit As CodeCompileUnit
            Public Get
                Return Me.compiledCCU
            End Get
            Friend Set(ByVal value As CodeCompileUnit)
                Me.compiledCCU = value
            End Set
        End Property


        ' Fields
        Private compiledCCU As CodeCompileUnit
    End Class
End Namespace

